home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 31
/
Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso
/
Aminet
/
util
/
boot
/
GameSelect.lha
/
GameSelect
/
Setup
< prev
next >
Wrap
Text File
|
1999-03-07
|
18KB
|
566 lines
;
; $VER:GameSelect Install.Script 1.1 (2.3.1999)
;
; is GameSelect Install.Script 1.1 (2.3.1999)
; for GameSelect (>=1.3)
; (c) ACone SiTe
;
(set GLB_LANGNOTSET true)
;
; german variables
;
(if (= @language "deutsch") (
(set GLB_LANGNOTSET false)
(set
MSG_WRONGSYSVERSION (cat
"%s ist erst ab Kickstart %s lauffähig,\n"
"aber ihr System hat nur Kickstart %s.\n"
)
MSG_INSTALL "Installation"
MSG_CONFIG "Konfiguration"
MSG_DESTALL "Destallation"
MSG_QUIT "Verlassen"
MSG_WICHWAY "Wählen Sie eine Aktion aus"
MSG_WICHWAYHELP (cat
"\n"
"Installation\n"
"Das Programm wird in einem anderen Verzeichnis installiert.\n"
"\n"
"Konfiguration\n"
"Das Programm konfigurieren.\n"
"\n"
"Destallation\n"
"Die vom Programm in systemspezifischen Verzeichnissen angelegten Dateien "
"werden gelöscht. Wenn Sie dann das Programmverzeichnis löschen ist das "
"Programm komplett vom Datenträger entfernt\n"
"\n"
"Verlassen\n"
"Keine der obigen Aktionen ausführen.\n"
"\n"
)
MSG_WHICHDEST (cat
"Wählen Sie das Zielverzeichnis wohin %s installiert werden soll. "
"Das Programmverzeichnis wird vom Installationsskript selbstständig angelegt."
)
MSG_WHICHDESTHELP (cat
"\n"
"Installationsstruktur:\n"
"\n"
"ausgewähltes Zielverzeichnis\n"
" %s\n"
" programmspezifische Verzeichnisse\n"
" programmspezifische Dateien\n"
)
MSG_ENVVARS (cat
;Zu StartControl
"Soll der Joystick im "
"Mouseport beim starten unterstützt werden ?$"
;Zu ScanPath
"In welchem Verzeichnis befinden sich die "
"Spiele/Demos etc. ?$"
;Zu LastMsgDelay
"In einer Statuszeile werden alle mögliche Dinge angezeigt. "
"Wieviel Sekunden soll die Letzte Nachricht eingeblendet bleiben ?$"
;Zu BorderSize
"Wie groß soll der Anstand in Bildpunkten zwischen den einzelnen "
"Aktionselementen sein ?$"
;Zu HeightAdd
"Um wieviel Bildpunkte soll ein Aktionsknopf vergrößert werden in der "
"Höhe ?$"
;Zu ButtonWidth
"Wie breit sollen die Aktionsknöpfe sein (in Bildpunkten) ?$"
;Zu ShowWarnings
"Sollen Warnungen ausgegeben werden ?$"
;Zu PlayMusic
"Soll Musik im Hintergrund gespielt werden während der "
"Auswahl und der Vorschau ?$"
;zu files in Prefs
"In Welchem Verzeichnis befinden sich die Musikmodule ? $"
;zu MusicPath
"$"
;Zu ShowPlayTime
"Soll die Abspieldauer der Musikmodule angezeigt werden ? "
"Es gibt einige Module wodurch mit dieser Option das System "
"hängen bleibt.$"
)
MSG_NOVIEWER "Wählen Sie ein geeignetes Programm aus, das Amigaguides anzeigen kann."
MSG_NOVIEWERABORT "%s konnte nicht gefunden werden"
)
))
;
; default sets
;
(if GLB_LANGNOTSET (
(set
MSG_WRONGSYSVERSION (cat
"%s ist erst ab Kickstart %s lauffähig,\n"
"aber ihr System hat nur Kickstart %s.\n"
)
MSG_INSTALL "Installation"
MSG_CONFIG "Konfiguration"
MSG_DESTALL "Destallation"
MSG_QUIT "Verlassen"
MSG_WICHWAY "Wählen Sie eine Aktion aus"
MSG_WICHWAYHELP (cat
"\n"
"Installation\n"
"Das Programm wird in einem anderen Verzeichnis installiert.\n"
"\n"
"Konfiguration\n"
"Das Programm konfigurieren.\n"
"\n"
"Destallation\n"
"Die vom Programm in systemspezifischen Verzeichnissen angelegten Dateien "
"werden gelöscht. Wenn Sie dann das Programmverzeichnis löschen ist das "
"Programm komplett vom Datenträger entfernt\n"
"\n"
"Verlassen\n"
"Keine der obigen Aktionen ausführen.\n"
"\n"
)
MSG_WHICHDEST (cat
"Wählen Sie das Zielverzeichnis wohin %s installiert werden soll. "
"Das Programmverzeichnis wird vom Installationsskript selbstständig angelegt."
)
MSG_WHICHDESTHELP (cat
"\n"
"Installationsstruktur:\n"
"\n"
"ausgewähltes Zielverzeichnis\n"
" %s\n"
" programmspezifische Verzeichnisse\n"
" programmspezifische Dateien\n"
)
MSG_ENVVARS (cat
;Zu StartControl
"Soll der Joystick im "
"Mouseport beim starten unterstützt werden ?$"
;Zu ScanPath
"In welchem Verzeichnis befinden sich die "
"Spiele/Demos etc. ?$"
;Zu LastMsgDelay
"In einer Statuszeile werden alle mögliche Dinge angezeigt. "
"Wieviel Sekunden soll die Letzte Nachricht eingeblendet bleiben ?$"
;Zu BorderSize
"Wie groß soll der Anstand in Bildpunkten zwischen den einzelnen "
"Aktionselementen sein ?$"
;Zu HeightAdd
"Um wieviel Bildpunkte soll ein Aktionsknopf vergrößert werden in der "
"Höhe ?$"
;Zu ButtonWidth
"Wie breit sollen die Aktionsknöpfe sein (in Bildpunkten) ?$"
;Zu ShowWarnings
"Sollen Warnungen ausgegeben werden ?$"
;Zu PlayMusic
"Soll Musik im Hintergrund gespielt werden während der "
"Auswahl und der Vorschau ?$"
;zu files in Prefs
"In Welchem Verzeichnis befinden sich die Musikmodule ? $"
;zu MusicPath
"$"
;Zu ShowPlayTime
"Soll die Abspieldauer der Musikmodule angezeigt werden ? "
"Es gibt einige Module wodurch mit dieser Option das System "
"hängen bleibt.$"
)
MSG_NOVIEWER "Wählen Sie ein geeignetes Programm aus, das Amigaguides anzeigen kann."
MSG_NOVIEWERABORT "%s konnte nicht gefunden werden"
)
))
;
; global variables
;
(set
GLB_MULTIVIEW "Sys:Utilities/MultiView"
GLB_AMIGAGUIDE "C:AmigaGuide"
GLB_OSVERSION 37
GLB_KICKVERSION "2.x"
GLB_DEFAULTDEST ""
GLB_ENVDIR "acone"
GLB_ENVVARS (cat
"new env StartUp "
"all arg StartControl bool JoyStick Mouse 0 "
"all arg ScanPath path "
"exp arg LastMsgDelay integer 4 "
"exp arg BorderSize integer 6 "
"exp arg HeightAdd integer 8 "
"exp arg ButtonWidth integer 120 "
"exp arg ShowWarnings bool Yes No 0 "
"use LIBS:destracker.library "
"all arg PlayMusic bool Yes No 1 "
"if! brk "
"new env Prefs "
"all noa files "
"add env StartUp "
"all arg MusicPath lastpath "
"all arg ShowPlayTime bool On Off 0 "
)
GLB_ENVS (cat
"env StartUp "
"env Prefs "
)
GLB_HELPDIRS ""
GLB_EXIT false
GLB_LASTPATH ""
GLB_ELEMENT ""
GLB_MESSAGE ""
GLB_ENV ""
GLB_HELPDIR ""
GLB_CFGFILE ""
GLB_ENVFILE ""
GLB_ENVARCFILE ""
GLB_ADDARG ""
GLB_RETARG ""
GLB_EMPTY ""
GLB_BOOL ""
)
;
; procedures
;
(procedure setKickVersion (
(if (= osversion 31) (set kickversion "1.x"))
(if (= osversion 33) (set kickversion "1.2"))
(if (= osversion 34) (set kickversion "1.3"))
(if (= osversion 37) (set kickversion "2.x"))
(if (= osversion 38) (set kickversion "2.1"))
(if (= osversion 39) (set kickversion "3.x"))
(if (= osversion 40) (set kickversion "3.1"))
))
(procedure checkOSVersion (
(set osversion (/ (getversion) 65536))
(setKickVersion)
(if (< osversion GLB_OSVERSION)
(abort (MSG_WRONGSYSVERSION @app-name GLB_KICKVERSION kickversion))
)
))
(procedure installProgram (